home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / ZoomLoopEnd.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-11  |  465 b   |  27 lines
  1. /* SFX ZoomLoopEnd */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SFX_GetLoopMode buf1
  10.     if RESULT=1 THEN DO
  11.         SFX_GetLength buf1
  12.         slen=RESULT
  13.         SFX_GetLoopEnd buf1
  14.         le=RESULT
  15.         zs=le-50
  16.         IF zs<0 THEN zs=0
  17.         zl=100
  18.         IF (zs+zl)>=slen THEN zl=slen-zs
  19.         SFX_SetZoomXStart buf1 zs
  20.         SFX_SetZoomXLength buf1 zl
  21.     END
  22.     ELSE SFX_Message '"No loop is set !"'
  23. END
  24. ELSE SFX_Message '"No sample to operate on !"'
  25. SFX_Activate
  26. EXIT
  27.